﻿Imports System.Data
Imports System.Data.SqlClient
Public Class frmActualizarAperturaAhorro

    Private Sub frmActualizarAperturaAhorro_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_MostrarCuentaAhorro' Puede moverla o quitarla según sea necesario.
        Me.SP_MostrarCuentaAhorroTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_MostrarCuentaAhorro)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarCliente' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarClienteTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarCliente)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_MostrarTipoCuenta' Puede moverla o quitarla según sea necesario.
        Me.SP_MostrarTipoCuentaTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_MostrarTipoCuenta)
        Me.SP_MostrarCuentaAhorroXClientesTableAdapter.Fill(EsperanzaDBDataSet.SP_MostrarCuentaAhorroXClientes)
        Me.txtNumCuenta.Enabled = False
    End Sub

    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub

    Private Sub LlenarDatos()
        If varConexion.State = ConnectionState.Open Then
            varConexion.Close()
        End If
        Try
            varConexion.Open()
            Dim cmd As New SqlCommand("SP_ListarCuentaAhorro", varConexion)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@NumeroCuenta", SqlDbType.Int).Value = Me.cboBuscarCuenta.EditValue

            Dim reader As SqlDataReader
            reader = cmd.ExecuteReader
            If reader.Read = True Then
                Me.txtNumCuenta.Text = reader.Item("NumeroCuenta")
                Me.cboRnpCliente.EditValue = reader.Item("RnpCliente")
                Me.cboTipoCuenta.EditValue = reader.Item("IdTipoCuenta")
                Me.dtpFechaApertura.Text = reader.Item("FechaCreacion")
            End If
            varConexion.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub cboBuscarCuenta_EditValueChanged(sender As Object, e As EventArgs) Handles cboBuscarCuenta.EditValueChanged
        Call LlenarDatos()
    End Sub

    Private Sub ActualizarApertura()
        Try
            SP_MostrarCuentaAhorroTableAdapter.SP_ActualizarCuentaAhorro(Me.txtNumCuenta.Text, Me.cboRnpCliente.EditValue, Me.cboTipoCuenta.EditValue, Me.dtpFechaApertura.Text)
            MessageBox.Show("Sus datos han sido actualizados correctamente", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btnActualizar_Click(sender As Object, e As EventArgs) Handles btnActualizar.Click
        Call ActualizarApertura()
        Me.Close()
    End Sub

End Class